home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1997 April / PC Direct CD-ROM (April 1997).iso / FAXMAKER / MACROS / AMIPRO / OTGFIFAX.SMM next >
Encoding:
INI File  |  1996-07-18  |  9.7 KB  |  1,065 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     FaxMaker
  13. [port]
  14.     GFI
  15. [lang]
  16.     2
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     OfficeTalk GFIFAX Merge Macro
  28.     
  29.     
  30.     
  31.     
  32.     837734415
  33.     3
  34.     837731879
  35.     4
  36.     2
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [tag]
  65.     Body Text
  66.     2
  67.     [fnt]
  68.         Times New Roman
  69.         240
  70.         0
  71.         49152
  72.     [algn]
  73.         1
  74.         1
  75.         0
  76.         0
  77.         0
  78.     [spc]
  79.         33
  80.         288
  81.         1
  82.         0
  83.         0
  84.         1
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         1
  92.         0
  93.         1
  94.         1
  95.         1
  96.         10
  97.         10
  98.         1
  99.     [spec]
  100.         0
  101.         0
  102.         
  103.         0
  104.         1
  105.         1
  106.         0
  107.         0
  108.         0
  109.         0
  110.     [nfmt]
  111.         280
  112.         1
  113.         2
  114.         .
  115.         ,
  116.         </c>
  117.     Body Text
  118.     0
  119.     0
  120. [tag]
  121.     Body Single
  122.     3
  123.     [fnt]
  124.         Times New Roman
  125.         240
  126.         0
  127.         49152
  128.     [algn]
  129.         1
  130.         1
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         33
  136.         288
  137.         1
  138.         0
  139.         0
  140.         1
  141.         100
  142.     [brk]
  143.         4
  144.     [line]
  145.         8
  146.         0
  147.         1
  148.         0
  149.         1
  150.         1
  151.         1
  152.         10
  153.         10
  154.         1
  155.     [spec]
  156.         0
  157.         0
  158.         
  159.         0
  160.         1
  161.         1
  162.         0
  163.         0
  164.         0
  165.         0
  166.     [nfmt]
  167.         280
  168.         1
  169.         2
  170.         .
  171.         ,
  172.         </c>
  173.     Body Single
  174.     0
  175.     0
  176. [tag]
  177.     Bullet
  178.     4
  179.     [fnt]
  180.         Times New Roman
  181.         240
  182.         0
  183.         49152
  184.     [algn]
  185.         1
  186.         1
  187.         0
  188.         288
  189.         288
  190.     [spc]
  191.         33
  192.         288
  193.         1
  194.         0
  195.         0
  196.         1
  197.         100
  198.     [brk]
  199.         4
  200.     [line]
  201.         8
  202.         0
  203.         1
  204.         0
  205.         1
  206.         1
  207.         1
  208.         10
  209.         10
  210.         1
  211.     [spec]
  212.         0
  213.         0
  214.         <*0>
  215.         360
  216.         1
  217.         1
  218.         0
  219.         0
  220.         0
  221.         0
  222.     [nfmt]
  223.         272
  224.         1
  225.         2
  226.         .
  227.         ,
  228.         </c>
  229.     Bullet
  230.     0
  231.     0
  232. [tag]
  233.     Bullet 1
  234.     5
  235.     [fnt]
  236.         Times New Roman
  237.         240
  238.         0
  239.         49152
  240.     [algn]
  241.         257
  242.         1
  243.         288
  244.         288
  245.         288
  246.     [spc]
  247.         33
  248.         288
  249.         1
  250.         0
  251.         0
  252.         1
  253.         100
  254.     [brk]
  255.         4
  256.     [line]
  257.         8
  258.         0
  259.         1
  260.         0
  261.         1
  262.         1
  263.         1
  264.         10
  265.         10
  266.         1
  267.     [spec]
  268.         0
  269.         0
  270.         <*5>
  271.         0
  272.         1
  273.         1
  274.         0
  275.         0
  276.         0
  277.         0
  278.     [nfmt]
  279.         280
  280.         1
  281.         2
  282.         .
  283.         ,
  284.         </c>
  285.     Bullet 1
  286.     0
  287.     0
  288. [tag]
  289.     Number List
  290.     6
  291.     [fnt]
  292.         Times New Roman
  293.         240
  294.         0
  295.         49152
  296.     [algn]
  297.         1
  298.         1
  299.         360
  300.         360
  301.         360
  302.     [spc]
  303.         33
  304.         288
  305.         1
  306.         0
  307.         0
  308.         1
  309.         100
  310.     [brk]
  311.         4
  312.     [line]
  313.         8
  314.         0
  315.         1
  316.         0
  317.         1
  318.         1
  319.         1
  320.         10
  321.         10
  322.         1
  323.     [spec]
  324.         0
  325.         0
  326.         <*:>.
  327.         360
  328.         1
  329.         1
  330.         0
  331.         0
  332.         0
  333.         0
  334.     [nfmt]
  335.         272
  336.         1
  337.         2
  338.         .
  339.         ,
  340.         </c>
  341.     Number List
  342.     0
  343.     0
  344. [tag]
  345.     Subhead
  346.     7
  347.     [fnt]
  348.         Times New Roman
  349.         200
  350.         0
  351.         49152
  352.     [algn]
  353.         1
  354.         1
  355.         0
  356.         0
  357.         0
  358.     [spc]
  359.         33
  360.         230
  361.         1
  362.         72
  363.         72
  364.         1
  365.         100
  366.     [brk]
  367.         4
  368.     [line]
  369.         8
  370.         0
  371.         1
  372.         0
  373.         1
  374.         1
  375.         1
  376.         10
  377.         10
  378.         1
  379.     [spec]
  380.         0
  381.         2
  382.         
  383.         0
  384.         1
  385.         1
  386.         0
  387.         0
  388.         0
  389.         0
  390.     [nfmt]
  391.         272
  392.         1
  393.         2
  394.         .
  395.         ,
  396.         </c>
  397.     Subhead
  398.     0
  399.     0
  400. [tag]
  401.     Title
  402.     8
  403.     [fnt]
  404.         Arial
  405.         360
  406.         0
  407.         16385
  408.     [algn]
  409.         4
  410.         1
  411.         0
  412.         0
  413.         0
  414.     [spc]
  415.         33
  416.         432
  417.         1
  418.         144
  419.         72
  420.         1
  421.         100
  422.     [brk]
  423.         16
  424.     [line]
  425.         8
  426.         0
  427.         1
  428.         0
  429.         1
  430.         1
  431.         1
  432.         10
  433.         10
  434.         1
  435.     [spec]
  436.         0
  437.         1
  438.         
  439.         0
  440.         1
  441.         1
  442.         0
  443.         0
  444.         0
  445.         0
  446.     [nfmt]
  447.         272
  448.         1
  449.         2
  450.         .
  451.         ,
  452.         </c>
  453.     Title
  454.     0
  455.     0
  456. [tag]
  457.     Header
  458.     9
  459.     [fnt]
  460.         Times New Roman
  461.         240
  462.         0
  463.         49152
  464.     [algn]
  465.         1
  466.         1
  467.         0
  468.         0
  469.         0
  470.     [spc]
  471.         33
  472.         288
  473.         1
  474.         0
  475.         0
  476.         1
  477.         100
  478.     [brk]
  479.         4
  480.     [line]
  481.         8
  482.         0
  483.         1
  484.         0
  485.         1
  486.         1
  487.         1
  488.         10
  489.         10
  490.         1
  491.     [spec]
  492.         0
  493.         0
  494.         
  495.         0
  496.         1
  497.         1
  498.         0
  499.         0
  500.         0
  501.         0
  502.     [nfmt]
  503.         280
  504.         1
  505.         2
  506.         .
  507.         ,
  508.         </c>
  509.     Header
  510.     0
  511.     0
  512. [tag]
  513.     Footer
  514.     11
  515.     [fnt]
  516.         Times New Roman
  517.         240
  518.         0
  519.         49152
  520.     [algn]
  521.         1
  522.         1
  523.         0
  524.         0
  525.         0
  526.     [spc]
  527.         33
  528.         288
  529.         1
  530.         0
  531.         0
  532.         1
  533.         100
  534.     [brk]
  535.         4
  536.     [line]
  537.         8
  538.         0
  539.         1
  540.         0
  541.         1
  542.         1
  543.         1
  544.         10
  545.         10
  546.         1
  547.     [spec]
  548.         0
  549.         0
  550.         
  551.         0
  552.         1
  553.         1
  554.         0
  555.         0
  556.         0
  557.         0
  558.     [nfmt]
  559.         280
  560.         1
  561.         2
  562.         .
  563.         ,
  564.         </c>
  565.     Footer
  566.     0
  567.     0
  568. [lay]
  569.     Standard
  570.     516
  571.     [rght]
  572.         16833
  573.         11908
  574.         1
  575.         1440
  576.         1440
  577.         1
  578.         1440
  579.         1440
  580.         0
  581.         1
  582.         0
  583.         1
  584.         0
  585.         2
  586.         1
  587.         1440
  588.         10465
  589.         12
  590.         1
  591.         720
  592.         1
  593.         1440
  594.         1
  595.         2160
  596.         1
  597.         2880
  598.         1
  599.         3600
  600.         1
  601.         4320
  602.         1
  603.         5040
  604.         1
  605.         5760
  606.         1
  607.         6480
  608.         1
  609.         7200
  610.         1
  611.         7920
  612.         1
  613.         8640
  614.     [hrght]
  615.     [lyfrm]
  616.         1
  617.         11200
  618.         0
  619.         0
  620.         11908
  621.         1440
  622.         0
  623.         1
  624.         3
  625.         1 0 0 0 0 0 0
  626.         0
  627.         0
  628.         1
  629.     [frmlay]
  630.         1440
  631.         11908
  632.         1
  633.         1440
  634.         72
  635.         1
  636.         792
  637.         1440
  638.         0
  639.         1
  640.         0
  641.         1
  642.         1
  643.         0
  644.         1
  645.         1440
  646.         10465
  647.         2
  648.         2
  649.         4680
  650.         3
  651.         9360
  652.     [txt]
  653. >
  654.     [frght]
  655.     [lyfrm]
  656.         1
  657.         13248
  658.         0
  659.         15393
  660.         11908
  661.         16833
  662.         0
  663.         1
  664.         3
  665.         1 0 0 0 0 0 0
  666.         0
  667.         0
  668.         2
  669.     [frmlay]
  670.         16833
  671.         11908
  672.         1
  673.         1440
  674.         792
  675.         1
  676.         15465
  677.         1440
  678.         0
  679.         1
  680.         0
  681.         1
  682.         1
  683.         0
  684.         1
  685.         1440
  686.         10465
  687.         2
  688.         2
  689.         4680
  690.         3
  691.         9360
  692.     [txt]
  693. >
  694. [elay]
  695. [l1]
  696.     0
  697. [pg]
  698.     2
  699.     48 0 14 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  700.     90 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  701. [edoc]
  702. <:#273,9025>OfficeTalk Fax Merge Macro v1.0 (Amipro, Tested Release 3.1)
  703.  
  704. <:#273,9025>-------------------------------------
  705.  
  706. <:#273,9025>Written By Karl Flower & Greg Carrell
  707.  
  708. <:#273,9025>(c) Sareen Software Plc 1996
  709.  
  710. <:#273,9025>Created On 8th July 1996
  711.  
  712. Modified On 18th July 1996
  713.  
  714. <:#273,9025>-------------------------------------
  715.  
  716. <:#273,9025>
  717.  
  718. <:#273,9025>Function otgfifax()
  719.  
  720. <:#273,9025>
  721.  
  722. <:#273,9025>' Define variables
  723.  
  724. <:#546,9025>DefStr GFISTRING, ORIGSTRING, FOUND, FAXNO, CONTACT, COMPANY, CURRMARK, PRINTER, POSITION1, POSITION2, DEVICE, PORT, CHANNEL
  725.  
  726. <:#273,9025>
  727.  
  728. <:#273,9025>' Find and read GFI FAX input string and handle errors
  729.  
  730. <:#273,9025>FOUND = Replace(0,0,8192, "/$FAX", "")
  731.  
  732. <:#273,9025>GFISTRING = GetTextBeforeCursor$()
  733.  
  734. <:#273,9025>ORIGSTRING = GFISTRING
  735.  
  736. <:#273,9025>
  737.  
  738. <:#273,9025>If FOUND <<<;> 1
  739.  
  740. <:#273,9025>    Message("No appropriate Fax Tag was found!")
  741.  
  742. <:#273,9025>        Exit Function
  743.  
  744. <:#273,9025>EndIf
  745.  
  746. <:#273,9025>
  747.  
  748. <:#273,9025>'Extract fax info from GFI FAX input string and handle errors
  749.  
  750. <:#273,9025>If Mid$(GFISTRING, 1, 5) = "GFI$/"
  751.  
  752. <:#273,9025>
  753.  
  754. <:#273,9025>    GFISTRING = Mid$(GFISTRING, 6, Len(GFISTRING) - 5)
  755.  
  756. <:#273,9025>    GFISTRING = Left$(GFISTRING, Len(GFISTRING) - 5)
  757.  
  758. <:#273,9025>
  759.  
  760. <:#273,9025>    CURRMARK = InStr(0, GFISTRING, "/$/")
  761.  
  762. <:#273,9025>    If CURRMARK <<<;> 0
  763.  
  764. <:#273,9025>        FAXNO = Left$(GFISTRING, CURRMARK - 1)
  765.  
  766. <:#546,9025>        GFISTRING = Mid$(GFISTRING, CURRMARK + 3, Len(GFISTRING) - CURRMARK + 3)
  767.  
  768. <:#273,9025>    Else
  769.  
  770. <:#273,9025>        FAXNO = GFISTRING
  771.  
  772. <:#273,9025>        GFISTRING = ""
  773.  
  774. <:#273,9025>        CONTACT = ""
  775.  
  776. <:#273,9025>        COMPANY = ""
  777.  
  778. <:#273,9025>    EndIf
  779.  
  780. <:#273,9025>
  781.  
  782. <:#273,9025>    CURRMARK = InStr(0, GFISTRING, "/$/")
  783.  
  784. <:#273,9025>    If CURRMARK <<<;> 0
  785.  
  786. <:#273,9025>        CONTACT = Left$(GFISTRING, CURRMARK - 1)
  787.  
  788. <:#546,9025>        GFISTRING = Mid$(GFISTRING, CURRMARK + 3, Len(GFISTRING) -     CURRMARK + 3)
  789.  
  790. <:#273,9025>        COMPANY = GFISTRING
  791.  
  792. <:#273,9025>    Else
  793.  
  794. <:#273,9025>        CONTACT = GFISTRING
  795.  
  796. <:#273,9025>        COMPANY = ""
  797.  
  798. <:#273,9025>    EndIf
  799.  
  800. <:#273,9025>
  801.  
  802. <:#273,9025>Else
  803.  
  804. <:#273,9025>    Message("The Fax Tag is not correctly constructed!")
  805.  
  806. <:#273,9025>    Exit Function
  807.  
  808. <:#273,9025>EndIf
  809.  
  810. <:#273,9025>
  811.  
  812. <:#273,9025>'Remove fax info string from document
  813.  
  814. <:#273,9025>Type("<[>END]")
  815.  
  816. <:#273,9025>For COUNT = 1 TO Len(ORIGSTRING)
  817.  
  818. <:#273,9025>    TYPE("<[>SHIFTLEFT]")
  819.  
  820. <:#273,9025>Next
  821.  
  822. <:#273,9025>Type("<[>DEL]")
  823.  
  824. <:#273,9025>Type("<[>DEL]")
  825.  
  826. <:#273,9025>
  827.  
  828. <:#273,9025>' Read default printer information
  829.  
  830. <:#273,9025>PRINTER = GetProfileString$("windows","device","WIN.INI")
  831.  
  832. <:#273,9025>
  833.  
  834. <:#273,9025>'Seperate string into Device and Port Name
  835.  
  836. <:#273,9025>POSITION1 = InStr(0, PRINTER, ",")
  837.  
  838. <:#273,9025>DEVICE = Left$(PRINTER, POSITION1 - 1)
  839.  
  840. <:#273,9025>
  841.  
  842. <:#273,9025>POSITION2 = InStr(POSITION1 + 1, PRINTER, ",")
  843.  
  844. <:#273,9025>PORT = Mid$(PRINTER, POSITION2 + 1, Len(PRINTER) - POSITION2)
  845.  
  846. <:#273,9025>
  847.  
  848. <:#273,9025>'Change current printer to FaxMaker and Print Document
  849.  
  850. <:#273,9025>PrintSetup("FaxMaker", "GFI")
  851.  
  852. FilePrint(1, 0, 0, 1537)
  853.  
  854. <:#273,9025>
  855.  
  856. <:#273,9025>'Wait for GFI Fax client to initiate and then pass fax info
  857.  
  858. <:#273,9025>CHANNEL = 0
  859.  
  860. <:#273,9025>WHILE CHANNEL = 0
  861.  
  862. <:#273,9025>    PAUSE(5)
  863.  
  864. <:#273,9025>    CHANNEL = DDEInitiate("FMCLIENT", "SENDFAX")
  865.  
  866. <:#273,9025>WEND
  867.  
  868. <:#273,9025>DDEPoke(CHANNEL, "ADD", StrCat$(CONTACT, "|", COMPANY, "|", FAXNO))
  869.  
  870. <:#273,9025>DDETerminate(CHANNEL)
  871.  
  872. <:#273,9025>
  873.  
  874. <:#273,9025>'Set default printer back to original
  875.  
  876. <:#273,9025>PrintSetup("DEVICE", "PORT")
  877.  
  878. <:#273,9025>
  879.  
  880. <:#273,9025>End Function
  881.  
  882. >
  883.  
  884. [Embedded]
  885. 00008356
  886. >
  887. [macsum] 1
  888. otgfifax 0 0 15 8
  889. [macse]
  890. 14 otgfifax
  891. 2 488 1 0 0 8192 "/$FAX" ""
  892. 13
  893. 8 3
  894. 0 37
  895. 13
  896. 8 1
  897. 6 1
  898. 8 2
  899. 6 3
  900. 5 1
  901. 18 1
  902. 11 00000158
  903. 0 3 "No appropriate Fax Tag was found!"
  904. 6 0
  905. 15
  906. 9
  907. 0 15 "{1}" 1 5
  908. 13
  909. 7 "GFI$/"
  910. 18 0
  911. 11 00000786
  912. 0 14 "{1}"
  913. 13
  914. 5 5
  915. 3 1
  916. 0 15 "{1}" 6 [X]
  917. 13
  918. 8 1
  919. 0 14 "{1}"
  920. 13
  921. 5 5
  922. 3 1
  923. 0 806 "{1}" [X]
  924. 13
  925. 8 1
  926. 0 808 0 "{1}" "/$/"
  927. 13
  928. 8 7
  929. 6 7
  930. 5 0
  931. 18 1
  932. 11 00000506
  933. 6 7
  934. 5 1
  935. 3 1
  936. 0 806 "{1}" [X]
  937. 13
  938. 8 4
  939. 6 7
  940. 5 3
  941. 3 0
  942. 0 14 "{1}"
  943. 13
  944. 6 7
  945. 3 1
  946. 5 3
  947. 3 0
  948. 0 15 "{1}" [X] [X]
  949. 13
  950. 8 1
  951. 10 00000549
  952. 6 1
  953. 8 4
  954. 7 ""
  955. 8 1
  956. 7 ""
  957. 8 5
  958. 7 ""
  959. 8 6
  960. 0 808 0 "{1}" "/$/"
  961. 13
  962. 8 7
  963. 6 7
  964. 5 0
  965. 18 1
  966. 11 00000752
  967. 6 7
  968. 5 1
  969. 3 1
  970. 0 806 "{1}" [X]
  971. 13
  972. 8 5
  973. 6 7
  974. 5 3
  975. 3 0
  976. 0 14 "{1}"
  977. 13
  978. 6 7
  979. 3 1
  980. 5 3
  981. 3 0
  982. 0 15 "{1}" [X] [X]
  983. 13
  984. 8 1
  985. 6 1
  986. 8 6
  987. 10 00000773
  988. 6 1
  989. 8 5
  990. 7 ""
  991. 8 6
  992. 10 00000847
  993. 0 3 "The Fax Tag is not correctly constructed!"
  994. 6 0
  995. 15
  996. 9
  997. 0 6 "[35]"
  998. 5 1
  999. 8 14
  1000. 0 14 "{2}"
  1001. 13
  1002. 6 14
  1003. 18 2
  1004. 12 00000959
  1005. 10 00000986
  1006. 5 1
  1007. 6 14
  1008. 3 0
  1009. 8 14
  1010. 10 00000870
  1011. 0 6 "[4133]"
  1012. 10 00000924
  1013. 0 6 "[46]"
  1014. 0 6 "[46]"
  1015. 0 286 "windows" "device" "WIN.INI"
  1016. 13
  1017. 8 8
  1018. 0 808 0 "{8}" ","
  1019. 13
  1020. 8 9
  1021. 6 9
  1022. 5 1
  1023. 3 1
  1024. 0 806 "{8}" [X]
  1025. 13
  1026. 8 11
  1027. 6 9
  1028. 5 1
  1029. 3 0
  1030. 0 808 [X] "{8}" ","
  1031. 13
  1032. 8 10
  1033. 6 10
  1034. 5 1
  1035. 3 0
  1036. 0 14 "{8}"
  1037. 13
  1038. 6 10
  1039. 3 1
  1040. 0 15 "{8}" [X] [X]
  1041. 13
  1042. 8 12
  1043. 2 112 1 "FaxMaker" "GFI"
  1044. 2 111 1 1 0 0 1537
  1045. 5 0
  1046. 8 13
  1047. 6 13
  1048. 5 0
  1049. 18 0
  1050. 11 00001389
  1051. 0 274 5
  1052. 0 8 "FMCLIENT" "SENDFAX"
  1053. 13
  1054. 8 13
  1055. 10 00001301
  1056. 0 16 "{5}" "|" "{6}" "|" "{4}"
  1057. 13
  1058. 0 35 "{13}" "ADD" [X]
  1059. 0 9 "{13}"
  1060. 2 112 1 "DEVICE" "PORT"
  1061. 6 0
  1062. 15
  1063. 9
  1064. 00008381
  1065.